home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 January / Macworld (1998-01).dmg / Serious Demos / Visual MacStandardBasic Demo / Samples / MultiForm Demo / Form1 next >
Text File  |  1997-10-11  |  2KB  |  118 lines
  1. MacStandardBasic Form Version 3.0
  2.  
  3.     FormBegin
  4.       Name=Form1
  5.       Title=Form1
  6.       Left=54
  7.       Top=133
  8.       Width=338
  9.       Height=150
  10.       Sub Proc.=None
  11.       Visible=1
  12.       Style=5
  13.       Font=Geneva
  14.       FontSize=12
  15.       FontStyle=0
  16.       Show Grid=1
  17.       Grid Snap=1
  18.       Grid Size=8
  19.       Min. Width=100
  20.       Max. Width=2000
  21.       Min. Height=100
  22.       Max. Height=2000
  23.       AutoCenter=0
  24.       ForeColor=0 0 0
  25.       BackColor=65535 65535 65535
  26.     FormEnd
  27.  
  28.     ControlBegin=TextBox
  29.       Name=TextBox1
  30.       Text=TextBox1
  31.       Left (x)=40
  32.       Top (y)=32
  33.       Width=257
  34.       Height=17
  35.       Sub Proc.=None
  36.       Visible=1
  37.       Value=1
  38.       Enabled=1
  39.       Font=Geneva
  40.       FontSize=12
  41.       FontStyle=0
  42.       ScrollBar=0
  43.       Read Only=0
  44.       Opt20=1
  45.       Frame=1
  46.       ForeColor=0 0 0
  47.       BackColor=65535 65535 65535
  48.     ControlEnd
  49.  
  50.     ControlBegin=ScrollBar
  51.       Name=ScrollBar1
  52.       Left (x)=40
  53.       Top (y)=64
  54.       Width=264
  55.       Height=16
  56.       Sub Proc.=None
  57.       Visible=1
  58.       Value=1
  59.       Enabled=1
  60.       Min. Value=1
  61.       Max. Value=10
  62.       PgUpDn=3
  63.       Opt20=1
  64.     ControlEnd
  65.  
  66.     ControlBegin=Button
  67.       Name=Button1
  68.       Text=Set TextBox in Form 2
  69.       Left (x)=48
  70.       Top (y)=96
  71.       Width=249
  72.       Height=33
  73.       Sub Proc.=Button1_Click
  74.       Visible=1
  75.       Value=0
  76.       Enabled=1
  77.       Opt20=1
  78.     ControlEnd
  79.  
  80. Start
  81.     Dim A
  82.  
  83.     CreateTheMenus
  84.     Form Form3
  85.     Form Form2
  86.     Form Form1
  87.     
  88.     A=0
  89.     Do While A=0
  90.     Loop
  91. Finish
  92.  
  93. Sub CreateTheMenus( )
  94.     MenuApple
  95.     MenuAddItem 1, "About Multiform Demo", "", AboutTheApp
  96.     MenuDesk
  97.     MenuAdd 2, "File", None
  98.     MenuAddItem 2, "Quit", "Q", QuitTheApp
  99.  
  100. EndSub
  101.  
  102. Sub QuitTheApp( )
  103.     End
  104. EndSub
  105.  
  106. Sub AboutTheApp( )
  107.     Dim a
  108.     a = MsgBox ("Multiform Demo", 0)
  109. EndSub
  110.  
  111. Sub Button1_Click( )
  112.     Dim a
  113.     If CtlExist(Form2.TextBox1) then
  114.         CtlText Form2.TextBox1, "Set by Form1", 0
  115.     EndIf
  116. EndSub
  117.  
  118.